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LISP DISK ARRAY 


DECUS Program Library Write-up 


DECUS No. 8-373 


ABSTRACT 

This program allows the user to store up to 4096 individual numbers on disk. Storage 
is by a one-dimensional array. The function is accessed by EXPR. Both the read and 
write routines sit in the top of core, just under the monitor, and occupy only 26 (10) 
locations (13 LISP cells). 

USAGE 

First load the LISP system tape, then this routine. Start LISP as usual. You can use 
the EXPR function now to read or write on disk or you can DEFINE two new functions: 

DEFI NE(( 

(DISKREAD(LAMBDA(PLACE) 

(EXPR 7555 NIL PLACE))))) 

DEFINE(( 

(DISKWRITE(LAMBDA(ITEM PLACE) 

(EXPR 7546 ITEM PLACE))))) 

The argument for DISKREAD is the location in the array that you wish to read. DISKREAD 
(4000) will read the 4000th(10) item in the array. 

The arguments for DISKWRITE are the item you wish to write and the locations in the 
array in which you wish to write it. 

With this package the user has access to the entire disk or several disks. In order to 
change the 4K module in which you are reading or writing, you can merely change the 
contents of TRACK (7572). There are 8 4K modules per DF32 disk. The EXPR function 
can be used to alter TRACK to be 0000 for the first module, 0100 for the second, 0200, 
the third, and so on. 

There is no communication with the Monitor although this system has the ability to do so. 
The user could write a routine that would search the SAM block for free blocks and then 
use those areas only for storage. This routine could be written in LISP. 

The system is originally set for the last 4K on a single disk. 








LISP DISK ARRAY 


*7546 


WRITE, 

DCA BUFFER 

/STORE THE NUMBER 


JMS SET 

/SETS WC,CA,AND E A REGISTER 


DMAW 

/WRITE 


DFSC 

/TRANSFER DONE? 


JMP .-1 

/NO, WAIT. 


TAD BUFFER 

/GET THE VALUE FOR THIS FUNCTION. 


JMP 1 P3175 

/RETURN TO LISP WITH VALUE. 

READ, 

JMS SET 

/SETS WC, CA,AND E A REGISTER 


DMAR 

/READ 


JMP .-6 

/EXIT AFTER TRANSFER WITH VALUE 

SET, 

0 

CLA CMA 

DCA 1 WC 

/SET WC TO TRANSFER ONE WORD 


TAD PBUFF 

DCA 1 CA 

TAD TRACK 

/CA POINTS TO BUFFER-1 


DEAL 

/SET E A REGISTER TO THE TRACK ON DISK 


CLA CLL 

TAD 1 PTARG 

/ADDRESS OF ITEM WITHIN THE TRACK 


JMP 1 SET 

/EXIT 

TRACK, 

700 

/LAST 4K OF FIRST DISK 

WC, 

7750 

/WORD COUNT 

CA, 

7751 

/CURRENT ADDRESS 

BUFFER, 

0 


P3175, 

3175 

/ADDRESS OF RETURN TO LISP 

PBUFF, 

CA 


*45 

3725-7545 



PTARG=41 




PSARG=37 






